U.S. Robotics Connections 2/US Robotics Connections.iso/mac/SourceMc/CompuServeCD.DIR/00025.ls

Text File | 1996-02-29 | 935 b | 45 lines

on startMovie
  global gNewPath
  set gNewPath to the moviePath
  set the exitLock to 1
  if the soundLevel = 0 then
    set the soundLevel to 1
  end if
  set the keyDownScript to "okToquit"
end

on oktoQuit
  if the commandDown and (the key = "q") then
    repeat with x = 1 to 48
      puppetSprite(x, 0)
    end repeat
    set the keyDownScript to EMPTY
    go("quitScreen")
  else
    if the key = "0" then
      set the soundLevel to 0
    end if
    if the key = "1" then
      set the soundLevel to 1
    end if
    if the key = "2" then
      set the soundLevel to 2
    end if
    if the key = "3" then
      set the soundLevel to 3
    end if
    if the key = "4" then
      set the soundLevel to 4
    end if
    if the key = "5" then
      set the soundLevel to 5
    end if
    if the key = "6" then
      set the soundLevel to 6
    end if
    if the key = "7" then
      set the soundLevel to 7
    end if
  end if
end